home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / mach10.zip / FDOOR.BAT < prev    next >
DOS Batch File  |  1990-06-24  |  2KB  |  89 lines
  1. :Start
  2. i:
  3. set sirius=\sirius
  4. cd\binkley
  5. rem capture on
  6. nodesay i:\mach10 1 waiting for a call
  7. FD
  8. If ErrorLevel 100 Goto GetRbbs
  9. If ErrorLevel  90 Goto LocalLogon
  10. If ErrorLevel  70 Goto InPutArcMail
  11. If ErrorLevel  60 Goto ConRen
  12. If ErrorLevel  50 Goto Twmaint
  13. If ErrorLevel  40 Goto Mailprocess
  14. If ErrorLevel   1 Goto End
  15. Goto Start
  16.  
  17. :LocalLogon
  18. Exebbs /S 0 0 1
  19. cd \Binkley
  20. Goto Start
  21.  
  22. :Twmaint
  23. nodesay i:\mach10 1 performing game maintenance
  24. cd \mach10\ww3
  25. maint
  26. cd \mach10\twars
  27. twars/m
  28. cd \mach10\twars2
  29. twars/m
  30. n:
  31. cd \foa
  32. foa /m
  33. i:
  34. cd \binkley
  35. if exist k:\files\usatoday.arc del k:\files\usatoday.arc
  36. goto start
  37.  
  38. :GetRbbs
  39. makenode 1
  40. DoBBS
  41. Goto Start
  42.  
  43. :checkfiles
  44. goto start
  45.  
  46. :log
  47. copy Binkley.log Binkley.old
  48. Del binkley.log
  49. goto Start
  50.  
  51. :InputArcMail
  52. HPUTIL IMPORT
  53. HPUTIL EXPORT
  54. Goto Start
  55. rem nodesay i:\mach10 1 processing mail
  56. rem ConfMail Import -F ConfMail.Out -A Pkxarc
  57. rem If ErrorLevel 2 Goto Severe1
  58. rem If ErrorLevel 1 Goto Do_Maint
  59. rem Goto End_Import
  60. rem :Do_Maint
  61. rem ConfMail Maint -F ConfMail.Out
  62. rem If ErrorLevel 2 Goto Severe1
  63. rem Goto End_Import
  64. rem :Severe1
  65. rem Echo Severe ERROR in Inport or Maint
  66. rem :End_Import
  67. rem ConfMail Export -D i:\binkley\messages -K -NP -R -A
  68. rem Goto Start
  69.  
  70. :MailProcess
  71. rem nodesay i:\mach10 1 processing mail
  72. rem ConfMail Export -D i:\binkley\messages -K -NP -R -A
  73. HPUTIL IMPORT
  74. HPUTIL EXPORT
  75. Goto start
  76.  
  77. :ConRen
  78. nodesay i:\mach10 1 renumbering message bases
  79. rem del outbound\*.$$?
  80. HPUTIL PACKALL
  81. cd \mach10
  82. mach10 1 /CALCTOP
  83. mach10 1 /M
  84. cd \binkley
  85.  
  86. Goto Start
  87.  
  88. :End
  89.